home *** CD-ROM | disk | FTP | other *** search
/ Clickx 4 / Clickx 4.iso / menu.dxr / 00009_list_files.ls < prev    next >
Encoding:
Text File  |  2002-01-01  |  3.6 KB  |  134 lines
  1. property pLine, pItem, pIDlist
  2. global gPlatform, gGroep, gFile
  3.  
  4. on beginSprite me
  5.   pIDlist = []
  6.   if gPlatform = "PC" then
  7.     files = getFilesPC(gGroep)
  8.   else
  9.     files = getFilesMAC(gGroep)
  10.   end if
  11.   sprite(me.spriteNum).member.text = EMPTY
  12.   repeat with i = 1 to 17
  13.     if i <= files.count then
  14.       sprite(me.spriteNum).member.line[i] = files[i].naam
  15.       pIDlist.add(files[i].ID)
  16.     end if
  17.   end repeat
  18.   pLine = 1
  19.   pItem = 1
  20.   sprite(me.spriteNum).member.color = rgb("#000000")
  21.   sprite(me.spriteNum).member.line[pItem].color = rgb("#F80808")
  22.   if pIDlist = [] then
  23.     alert("ERROR: Geen files in deze groep!")
  24.     go("menu")
  25.     exit
  26.   else
  27.     showFileInfo()
  28.   end if
  29. end
  30.  
  31. on mouseWithin me
  32.   newLine = sprite(me.spriteNum).pointToLine(the mouseLoc)
  33.   if pLine <> -1 then
  34.     if newLine <> pLine then
  35.       if (pLine <> pItem) and (pLine <> 0) then
  36.         sprite(me.spriteNum).member.line[pLine].color = rgb("#000000")
  37.       end if
  38.       pLine = newLine
  39.       if pLine <> pItem then
  40.         sprite(me.spriteNum).member.line[pLine].color = rgb("#F3D532")
  41.       end if
  42.     end if
  43.   end if
  44. end
  45.  
  46. on mouseLeave me
  47.   if pLine <> pItem then
  48.     sprite(me.spriteNum).member.line[pLine].color = rgb("#000000")
  49.   end if
  50.   pLine = 0
  51. end
  52.  
  53. on mouseUp me
  54.   sprite(me.spriteNum).member.line[pItem].color = rgb("#000000")
  55.   sprite(me.spriteNum).member.line[pLine].color = rgb("#F80808")
  56.   pItem = pLine
  57.   showFileInfo()
  58. end
  59.  
  60. on showFileInfo
  61.   if gPlatform = "PC" then
  62.     groepen = getGroupsPC()
  63.     fileDetails = getFileDetailsPC(pIDlist[pItem])
  64.   else
  65.     groepen = getGroupsMAC()
  66.     fileDetails = getFileDetailsMAC(pIDlist[pItem])
  67.   end if
  68.   if member(fileDetails[1].image).name <> EMPTY then
  69.     sprite(11).member = member(fileDetails[1].image)
  70.   else
  71.     sprite(11).member = member("dummy")
  72.   end if
  73.   member("caption").text = fileDetails[1].Caption
  74.   member("caption2").rtf = fileDetails[1].Caption
  75.   if member("caption").lineCount >= 9 then
  76.     member("caption2").boxType = #scroll
  77.   else
  78.     member("caption2").boxType = #fixed
  79.   end if
  80.   member("caption2").scrollTop = 1
  81.   sprite(13).pLink = fileDetails[1].url
  82.   member("specs").text = EMPTY
  83.   if fileDetails[1].type <> EMPTY then
  84.     put "Type:" && fileDetails[1].type & RETURN after member "specs"
  85.   end if
  86.   if fileDetails[1].prijs <> EMPTY then
  87.     put "Prijs:" && fileDetails[1].prijs & RETURN after member "specs"
  88.   end if
  89.   if fileDetails[1].grootte <> EMPTY then
  90.     put "Grootte:" && fileDetails[1].grootte & RETURN after member "specs"
  91.   end if
  92.   if fileDetails[1].auteur <> EMPTY then
  93.     put "Auteur:" && fileDetails[1].auteur & RETURN after member "specs"
  94.   end if
  95.   if member("specs").text = EMPTY then
  96.     member("titel specs").text = EMPTY
  97.   else
  98.     member("titel specs").text = "SPECS"
  99.   end if
  100.   if gPlatform = "PC" then
  101.     member("req").text = EMPTY
  102.     if fileDetails[1].win95 then
  103.       put "-95" after member "req"
  104.     end if
  105.     if fileDetails[1].win98 then
  106.       put "-98" after member "req"
  107.     end if
  108.     if fileDetails[1].winME then
  109.       put "-ME" after member "req"
  110.     end if
  111.     if fileDetails[1].winNT then
  112.       put "-NT" after member "req"
  113.     end if
  114.     if fileDetails[1].win2000 then
  115.       put "-2000" after member "req"
  116.     end if
  117.     if fileDetails[1].winXP then
  118.       put "-XP" after member "req"
  119.     end if
  120.     if member("req").text.char[1] = "-" then
  121.       delete member("req").char[1]
  122.     end if
  123.   else
  124.     member("req").text = fileDetails[1].OS
  125.   end if
  126.   sprite(20).pFile = fileDetails[1].BestandsNaam
  127.   if fileDetails[1].knoptekst = EMPTY then
  128.     sprite(20).member = member("dummy")
  129.   else
  130.     sprite(20).member = member("install_knop_N")
  131.   end if
  132.   sprite(21).member.text = fileDetails[1].knoptekst
  133. end
  134.